home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / slapy3.z / slapy3
Text File  |  1996-03-14  |  947b  |  67 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAAPPPPYYYY3333((((3333FFFF))))                                                          SSSSLLLLAAAAPPPPYYYY3333((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLAPY3 - return sqrt(x**2+y**2+z**2), taking care not to cause
  10.      unnecessary overflow
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      REAL FUNCTION SLAPY3( X, Y, Z )
  14.  
  15.          REAL      X, Y, Z
  16.  
  17. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  18.      SLAPY3 returns sqrt(x**2+y**2+z**2), taking care not to cause unnecessary
  19.      overflow.
  20.  
  21.  
  22. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  23.      X       (input) REAL
  24.              Y       (input) REAL Z       (input) REAL X, Y and Z specify the
  25.              values x, y and z.
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.